﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MonedasFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MonedasBE
        Dim tmpMonedas As MonedasBE = New MonedasBE()
        Try
            With tmpMonedas
                .ClaMoneda = convertDTFromDb.ConvertString(dr.Item("ClaMoneda"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .Siglas = convertDTFromDb.ConvertString(dr.Item("Siglas"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpMonedas
        Catch ex As Exception
            Throw
        Finally
            tmpMonedas = Nothing
        End Try
    End Function
End Class
